home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / hdf / unix / hdf3_2r2.lha / HDF3.2r2 / src / dfutilf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-10-28  |  3.7 KB  |  118 lines
  1. /***************************************************************************
  2. *
  3. *
  4. *                         NCSA HDF version 3.2r2
  5. *                            October 30, 1992
  6. *
  7. * NCSA HDF Version 3.2 source code and documentation are in the public
  8. * domain.  Specifically, we give to the public domain all rights for future
  9. * licensing of the source code, all resale rights, and all publishing rights.
  10. *
  11. * We ask, but do not require, that the following message be included in all
  12. * derived works:
  13. *
  14. * Portions developed at the National Center for Supercomputing Applications at
  15. * the University of Illinois at Urbana-Champaign, in collaboration with the
  16. * Information Technology Institute of Singapore.
  17. *
  18. * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  19. * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  20. * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  21. *
  22. ****************************************************************************
  23. */
  24.  
  25. #ifdef RCSID
  26. static char RcsId[] = "@(#)$Revision: 1.3 $";
  27. #endif
  28. /*
  29. $Header: /hdf/hdf/v3.2r2/src/RCS/dfutilf.c,v 1.3 1992/10/12 18:11:51 koziol beta koziol $
  30.  
  31. $Log: dfutilf.c,v $
  32.  * Revision 1.3  1992/10/12  18:11:51  koziol
  33.  * Updated for v3.2r2 release
  34.  *
  35.  * Revision 1.2  1992/09/11  14:15:04  koziol
  36.  * Changed Fortran stubs' parameter passing to use a new typedef, intf,
  37.  * which should be typed to the size of an INTEGER*4 in whatever Fortran
  38.  * compiler the C functions need to be compatible with.  (This is mostly
  39.  * for the PC and possibly for the Mac)
  40.  *
  41.  * Revision 1.1  1992/08/25  21:40:44  koziol
  42.  * Initial revision
  43.  *
  44. */
  45. /*-----------------------------------------------------------------------------
  46.  * File:    dfutilF.c
  47.  * Purpose: C stubs for Fortran utility routines
  48.  * Invokes: dfutil.c
  49.  * Contents: 
  50.  *  dfindnr_:       For a given tag, find the next ref after the given ref
  51.  *---------------------------------------------------------------------------*/
  52.  
  53. #include "hdf.h"
  54.  
  55. #ifndef DFUTIL_FNAMES
  56. #   define DFUTIL_FNAMES
  57. #ifdef DF_CAPFNAMES
  58. #   define ndfindnr          FNAME(DFINDNR)
  59. #   define ndffindnextref    FNAME(DFFINDNEXTREF)
  60. #else
  61. #   define ndfindnr          FNAME(dfindnr)
  62. #   define ndffindnextref    FNAME(dffindnextref)
  63. #endif /* DF_CAPFNAMES */
  64. #endif /* DFUTIL_FNAMES */
  65.  
  66. /*-----------------------------------------------------------------------------
  67.  * Name:    dfindnr
  68.  * Purpose: For this tag, find the ref after lref
  69.  * Inputs:  dfile: ptr to open DF file
  70.  *          tag:   tag to look for
  71.  *          lref:  ref after which to search
  72.  *
  73.  * Returns: the desired ref if successful, on failure with    DFerror set
  74.  * Users:   HDF Fortran programmers
  75.  * Invokes: DFfindnextref
  76.  *---------------------------------------------------------------------------*/
  77.  
  78.     FRETVAL(intf)
  79. #ifdef PROTOTYPE
  80. ndfindnr(intf *dfile, intf *tag, intf *lref)
  81. #else
  82. ndfindnr(dfile, tag, lref)
  83.      intf *dfile;
  84.      intf *tag, *lref;
  85. #endif /* PROTOTYPE */
  86. {
  87.     return(DFfindnextref(*dfile, *tag, *lref));
  88. }
  89.  
  90. /*
  91. CEND7MAX
  92. */
  93.  
  94. /*-----------------------------------------------------------------------------
  95.  * Name:    dffindnextref
  96.  * Purpose: For this tag, find the ref after lref
  97.  * Inputs:  dfile: ptr to open DF file
  98.  *          tag:   tag to look for
  99.  *          lref:  ref after which to search
  100.  *
  101.  * Returns: the desired ref if successful, on failure with    DFerror set
  102.  * Users:   HDF Fortran programmers
  103.  * Invokes: DFfindnextref
  104.  *---------------------------------------------------------------------------*/
  105.  
  106.     FRETVAL(intf)
  107. #ifdef PROTOTYPE
  108. ndffindnextref(intf *dfile, intf *tag, intf *lref)
  109. #else
  110. ndffindnextref(dfile, tag, lref)
  111.      intf *dfile;
  112.      intf *tag, *lref;
  113. #endif /* PROTOTYPE */
  114. {
  115.     return(DFfindnextref(*dfile, *tag, *lref));
  116. }
  117.  
  118.